home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / onlineco / files / ImageMagick-6.0.1-Q16-windows-dll.exe / {app} / PerlMagick / demo / piddle.pl < prev    next >
Encoding:
Perl Script  |  2003-12-29  |  1.9 KB  |  67 lines
  1. #!/usr/bin/perl
  2. # Piddle example using PerlMagick methods.
  3.  
  4. use Image::Magick;
  5.  
  6. #
  7. # Create white canvas.
  8. #
  9. $image=Image::Magick->new(size=>'300x300');
  10. $image->Read('xc:white');
  11. #
  12. # Draw blue grid
  13. #
  14. for ($i=0; $i < 300; $i+=10)
  15. {
  16.   $image->Draw(primitive=>'line',points=>"$i,0 $i,300",stroke=>"#ccf");
  17.   $image->Draw(primitive=>'line',points=>"0,$i 300,$i",stroke=>"#ccf");
  18. }
  19. #
  20. # Draw rounded rectangle.
  21. #
  22. $image->Draw(primitive=>'RoundRectangle',fill=>'blue',stroke=>'maroon',
  23.   strokewidth=>4,points=>'30,30 100,100 10,10');
  24. #
  25. # Draw curve.
  26. #
  27. $image->Draw(primitive=>'bezier',points=>'20,20, 100,50, 50,100, 160,160',
  28.   fill=>'none',stroke=>'black',strokewidth=>4);
  29. #
  30. # Draw line.
  31. #
  32. $image->Draw(primitive=>'line',points=>"10,200 20,190",stroke=>red);
  33. #
  34. # Draw arc within a circle.
  35. #
  36. $image->Draw(primitive=>'circle',stroke=>'none',fill=>'yellow',,
  37.   points=>"170,70 200,70");
  38. $image->Draw(primitive=>'Path',stroke=>'none',fill=>'blue',strokewidth=>4,
  39.   points=>'M170,70 v-30 a30,30 0 0,0 -30,30 z');
  40. $image->Draw(primitive=>'circle',stroke=>'black',fill=>'none',strokewidth=>4,
  41.   points=>"170,70 200,70");
  42. #
  43. # Draw pentogram.
  44. #
  45. $image->Draw(primitive=>'polygon',
  46.   points=>"160,120 130,190 210,145 110,145 190,190 160,120",stroke=>red,
  47.   fill=>LimeGreen,strokewidth=>3);
  48. #
  49. # Draw rectangle.
  50. #
  51. $image->Draw(primitive=>'line',points=>'200,260 200,200',stroke=>yellow,
  52.   strokewidth=>5);
  53. $image->Draw(primitive=>'line',points=>'200,200 260,200',stroke=>yellow,
  54.   strokewidth=>5);
  55. $image->Draw(primitive=>'line',points=>'260,200 260,260',stroke=>red,
  56.   strokewidth=>5);
  57. $image->Draw(primitive=>'line',points=>'200,260 260,260',stroke=>green,
  58.   strokewidth=>5);
  59. #
  60. # Draw text.
  61. #
  62. $image->Annotate(text=>'This is a test!',geometry=>'+30+140',
  63.   font=>'Generic.ttf',fill=>'green',pointsize=>24,rotate=>45.0);
  64. $image->Write('piddle.gif');
  65. $image->Write('piddle.mvg');
  66. $image->Write('win:');
  67.